home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / RA Folder / Error.ra < prev    next >
Encoding:
Text File  |  1986-10-21  |  409 b   |  34 lines  |  [THED/THTH]
  1. |
  2. |   RA™
  3. |
  4. |    Error message sample
  5. |
  6. |   © 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. 1 3 2 + + + + ! 
  10. #A;
  11. "THE END."
  12. $
  13. &A  "!Hit any key:" ?§ µ @ `
  14. |
  15. |  RA title routine
  16. |
  17. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  18.  
  19. &O
  20. 40 100 Ω
  21. "RA™"
  22. 60 45 Ω 
  23. "© 1986 COM~LINK & S.Koren" 
  24. 80 60 Ω
  25. "All rights reserved." `
  26.  
  27. &L
  28. 35 A: ("•" A. 1 - A: A. 0 > ~ ) "!"`
  29.  
  30. &N
  31. "•" 33 A: (" " A. 1 - A: A. 0 > ~ ) "•" "!"`
  32.  
  33. &P ?§ @ `
  34. $